home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H145.ZIP / ASXXXX_4.ZIP / T6801.ASM < prev    next >
Assembly Source File  |  1990-07-18  |  9KB  |  568 lines
  1.     .title    6801 Assembler Test
  2.  
  3.     dir    =    0x0033
  4.     ext    =    0x1122
  5.     offset    =    0x0044
  6.  
  7.     aba            ;1B
  8.  
  9.     abx            ;3A
  10.  
  11.     adca    #0x10        ;89 10
  12.     adca    *dir        ;99 33
  13.     adca    ,x        ;A9 00
  14.     adca    offset,x    ;A9 44
  15.     adca    ext        ;B9 11 22
  16.  
  17.     adcb    #0x10        ;C9 10
  18.     adcb    *dir        ;D9 33
  19.     adcb    ,x        ;E9 00
  20.     adcb    offset,x    ;E9 44
  21.     adcb    ext        ;F9 11 22
  22.  
  23.     adc a    #0x10        ;89 10
  24.     adc a    *dir        ;99 33
  25.     adc a    ,x        ;A9 00
  26.     adc a    offset,x    ;A9 44
  27.     adc a    ext        ;B9 11 22
  28.  
  29.     adc b    #0x10        ;C9 10
  30.     adc b    *dir        ;D9 33
  31.     adc b    ,x        ;E9 00
  32.     adc b    offset,x    ;E9 44
  33.     adc b    ext        ;F9 11 22
  34.  
  35.     adda    #0x10        ;8B 10
  36.     adda    *dir        ;9B 33
  37.     adda    ,x        ;AB 00
  38.     adda    offset,x    ;AB 44
  39.     adda    ext        ;BB 11 22
  40.  
  41.     addb    #0x10        ;CB 10
  42.     addb    *dir        ;DB 33
  43.     addb    ,x        ;EB 00
  44.     addb    offset,x    ;EB 44
  45.     addb    ext        ;FB 11 22
  46.  
  47.     addd    #0x5566        ;C3 55 66
  48.     addd    *dir        ;D3 33
  49.     addd    ,x        ;E3 00
  50.     addd    offset,x    ;E3 44
  51.     addd    ext        ;F3 11 22
  52.  
  53.     add a    #0x10        ;8B 10
  54.     add a    *dir        ;9B 33
  55.     add a    ,x        ;AB 00
  56.     add a    offset,x    ;AB 44
  57.     add a    ext        ;BB 11 22
  58.  
  59.     add b    #0x10        ;CB 10
  60.     add b    *dir        ;DB 33
  61.     add b    ,x        ;EB 00
  62.     add b    offset,x    ;EB 44
  63.     add b    ext        ;FB 11 22
  64.  
  65.     add d    #0x5566        ;C3 55 66
  66.     add d    *dir        ;D3 33
  67.     add d    ,x        ;E3 00
  68.     add d    offset,x    ;E3 44
  69.     add d    ext        ;F3 11 22
  70.  
  71.     anda    #0x10        ;84 10
  72.     anda    *dir        ;94 33
  73.     anda    ,x        ;A4 00
  74.     anda    offset,x    ;A4 44
  75.     anda    ext        ;B4 11 22
  76.  
  77.     andb    #0x10        ;C4 10
  78.     andb    *dir        ;D4 33
  79.     andb    ,x        ;E4 00
  80.     andb    offset,x    ;E4 44
  81.     andb    ext        ;F4 11 22
  82.  
  83.     and a    #0x10        ;84 10
  84.     and a    *dir        ;94 33
  85.     and a    ,x        ;A4 00
  86.     and a    offset,x    ;A4 44
  87.     and a    ext        ;B4 11 22
  88.  
  89.     and b    #0x10        ;C4 10
  90.     and b    *dir        ;D4 33
  91.     and b    ,x        ;E4 00
  92.     and b    offset,x    ;E4 44
  93.     and b    ext        ;F4 11 22
  94.  
  95.     asla            ;48
  96.     aslb            ;58
  97.     asld            ;05
  98.  
  99.     asl a            ;48
  100.     asl b            ;58
  101.     asl d            ;05
  102.     asl    ,x        ;68 00
  103.     asl    offset,x    ;68 44
  104.     asl    ext        ;78 11 22
  105.  
  106.     asra            ;47
  107.     asrb            ;57
  108.  
  109.     asr a            ;47
  110.     asr b            ;57
  111.     asr    ,x        ;67 00
  112.     asr    offset,x    ;67 44
  113.     asr    ext        ;77 11 22
  114.  
  115.     bita    #0x10        ;85 10
  116.     bita    *dir        ;95 33
  117.     bita    ,x        ;A5 00
  118.     bita    offset,x    ;A5 44
  119.     bita    ext        ;B5 11 22
  120.  
  121.     bitb    #0x10        ;C5 10
  122.     bitb    *dir        ;D5 33
  123.     bitb    ,x        ;E5 00
  124.     bitb    offset,x    ;E5 44
  125.     bitb    ext        ;F5 11 22
  126.  
  127.     bit a    #0x10        ;85 10
  128.     bit a    *dir        ;95 33
  129.     bit a    ,x        ;A5 00
  130.     bit a    offset,x    ;A5 44
  131.     bit a    ext        ;B5 11 22
  132.  
  133.     bit b    #0x10        ;C5 10
  134.     bit b    *dir        ;D5 33
  135.     bit b    ,x        ;E5 00
  136.     bit b    offset,x    ;E5 44
  137.     bit b    ext        ;F5 11 22
  138.  
  139.     bra    .        ;20 FE
  140.     brn    .        ;21 FE
  141.     bhi    .        ;22 FE
  142.     bls    .        ;23 FE
  143.     bcc    .        ;24 FE
  144.     bhs    .        ;24 FE
  145.     bcs    .        ;25 FE
  146.     blo    .        ;25 FE
  147.     bne    .        ;26 FE
  148.     beq    .        ;27 FE
  149.     bvc    .        ;28 FE
  150.     bvs    .        ;29 FE
  151.     bpl    .        ;2A FE
  152.     bmi    .        ;2B FE
  153.     bge    .        ;2C FE
  154.     blt    .        ;2D FE
  155.     bgt    .        ;2E FE
  156.     ble    .        ;2F FE
  157.  
  158.     bsr    .        ;8D FE
  159.  
  160.     cba            ;11
  161.  
  162.     clc            ;0C
  163.  
  164.     cli            ;0E
  165.  
  166.     clra            ;4F
  167.     clrb            ;5F
  168.  
  169.     clr a            ;4F
  170.     clr b            ;5F
  171.     clr    ,x        ;6F 00
  172.     clr    offset,x    ;6F 44
  173.     clr    ext        ;7F 11 22
  174.  
  175.     clv            ;0A
  176.  
  177.     cmpa    #0x10        ;81 10
  178.     cmpa    *dir        ;91 33
  179.     cmpa    ,x        ;A1 00
  180.     cmpa    offset,x    ;A1 44
  181.     cmpa    ext        ;B1 11 22
  182.  
  183.     cmpb    #0x10        ;C1 10
  184.     cmpb    *dir        ;D1 33
  185.     cmpb    ,x        ;E1 00
  186.     cmpb    offset,x    ;E1 44
  187.     cmpb    ext        ;F1 11 22
  188.  
  189.     cmp a    #0x10        ;81 10
  190.     cmp a    *dir        ;91 33
  191.     cmp a    ,x        ;A1 00
  192.     cmp a    offset,x    ;A1 44
  193.     cmp a    ext        ;B1 11 22
  194.  
  195.     cmp b    #0x10        ;C1 10
  196.     cmp b    *dir        ;D1 33
  197.     cmp b    ,x        ;E1 00
  198.     cmp b    offset,x    ;E1 44
  199.     cmp b    ext        ;F1 11 22
  200.  
  201.     coma            ;43
  202.     comb            ;53
  203.  
  204.     com a            ;43
  205.     com b            ;53
  206.     com    ,x        ;63 00
  207.     com    offset,x    ;63 44
  208.     com    ext        ;73 11 22
  209.  
  210.     cpx    #0x5566        ;8C 55 66
  211.     cpx    *dir        ;9C 33
  212.     cpx    ,x        ;AC 00
  213.     cpx    offset,x    ;AC 44
  214.     cpx    ext        ;BC 11 22
  215.  
  216.     daa            ;19
  217.  
  218.     deca            ;4A
  219.     decb            ;5A
  220.  
  221.     dec a            ;4A
  222.     dec b            ;5A
  223.     dec    ,x        ;6A 00
  224.     dec    offset,x    ;6A 44
  225.     dec    ext        ;7A 11 22
  226.  
  227.     des            ;34
  228.  
  229.     dex            ;09
  230.  
  231.     eora    #0x10        ;88 10
  232.     eora    *dir        ;98 33
  233.     eora    ,x        ;A8 00
  234.     eora    offset,x    ;A8 44
  235.     eora    ext        ;B8 11 22
  236.  
  237.     eorb    #0x10        ;C8 10
  238.     eorb    *dir        ;D8 33
  239.     eorb    ,x        ;E8 00
  240.     eorb    offset,x    ;E8 44
  241.     eorb    ext        ;F8 11 22
  242.  
  243.     eor a    #0x10        ;88 10
  244.     eor a    *dir        ;98 33
  245.     eor a    ,x        ;A8 00
  246.     eor a    offset,x    ;A8 44
  247.     eor a    ext        ;B8 11 22
  248.  
  249.     eor b    #0x10        ;C8 10
  250.     eor b    *dir        ;D8 33
  251.     eor b    ,x        ;E8 00
  252.     eor b    offset,x    ;E8 44
  253.     eor b    ext        ;F8 11 22
  254.  
  255.     inca            ;4C
  256.     incb            ;5C
  257.  
  258.     inc a            ;4C
  259.     inc b            ;5C
  260.     inc    ,x        ;6C 00
  261.     inc    offset,x    ;6C 44
  262.     inc    ext        ;7C 11 22
  263.  
  264.     ins            ;31
  265.  
  266.     inx            ;08
  267.  
  268.     jmp    ,x        ;6E 00
  269.     jmp    offset,x    ;6E 44
  270.     jmp    ext        ;7E 11 22
  271.  
  272.     jsr    *dir        ;9D 33
  273.     jsr    ,x        ;AD 00
  274.     jsr    offset,x    ;AD 44
  275.     jsr    ext        ;BD 11 22
  276.  
  277.     ldaa    #0x10        ;86 10
  278.     ldaa    *dir        ;96 33
  279.     ldaa    ,x        ;A6 00
  280.     ldaa    offset,x    ;A6 44
  281.     ldaa    ext        ;B6 11 22
  282.  
  283.     ldab    #0x10        ;C6 10
  284.     ldab    *dir        ;D6 33
  285.     ldab    ,x        ;E6 00
  286.     ldab    offset,x    ;E6 44
  287.     ldab    ext        ;F6 11 22
  288.  
  289.     lda a    #0x10        ;86 10
  290.     lda a    *dir        ;96 33
  291.     lda a    ,x        ;A6 00
  292.     lda a    offset,x    ;A6 44
  293.     lda a    ext        ;B6 11 22
  294.  
  295.     lda b    #0x10        ;C6 10
  296.     lda b    *dir        ;D6 33
  297.     lda b    ,x        ;E6 00
  298.     lda b    offset,x    ;E6 44
  299.     lda b    ext        ;F6 11 22
  300.  
  301.     ldd    #0x5566        ;CC 55 66
  302.     ldd    *dir        ;DC 33
  303.     ldd    ,x        ;EC 00
  304.     ldd    offset,x    ;EC 44
  305.     ldd    ext        ;FC 11 22
  306.  
  307.     lds    #0x5566        ;8E 55 66
  308.     lds    *dir        ;9E 33
  309.     lds    ,x        ;AE 00
  310.     lds    offset,x    ;AE 44
  311.     lds    ext        ;BE 11 22
  312.  
  313.     ldx    #0x5566        ;CE 55 66
  314.     ldx    *dir        ;DE 33
  315.     ldx    ,x        ;EE 00
  316.     ldx    offset,x    ;EE 44
  317.     ldx    ext        ;FE 11 22
  318.  
  319.     lsla            ;48
  320.     lslb            ;58
  321.     lsld            ;05
  322.  
  323.     lsl a            ;48
  324.     lsl b            ;58
  325.     lsl d            ;05
  326.     lsl    ,x        ;68 00
  327.     lsl    offset,x    ;68 44
  328.     lsl    ext        ;78 11 22
  329.  
  330.     lsra            ;44
  331.     lsrb            ;54
  332.     lsrd            ;04
  333.  
  334.     lsr a            ;44
  335.     lsr b            ;54
  336.     lsr d            ;04
  337.     lsr    ,x        ;64 00
  338.     lsr    offset,x    ;64 44
  339.     lsr    ext        ;74 11 22
  340.  
  341.     mul            ;3D
  342.  
  343.     nega            ;40
  344.     negb            ;50
  345.  
  346.     neg a            ;40
  347.     neg b            ;50
  348.     neg    ,x        ;60 00
  349.     neg    offset,x    ;60 44
  350.     neg    ext        ;70 11 22
  351.  
  352.     nop            ;01
  353.  
  354.     oraa    #0x10        ;8A 10
  355.     oraa    *dir        ;9A 33
  356.     oraa    ,x        ;AA 00
  357.     oraa    offset,x    ;AA 44
  358.     oraa    ext        ;BA 11 22
  359.  
  360.     orab    #0x10        ;CA 10
  361.     orab    *dir        ;DA 33
  362.     orab    ,x        ;EA 00
  363.     orab    offset,x    ;EA 44
  364.     orab    ext        ;FA 11 22
  365.  
  366.     ora a    #0x10        ;8A 10
  367.     ora a    *dir        ;9A 33
  368.     ora a    ,x        ;AA 00
  369.     ora a    offset,x    ;AA 44
  370.     ora a    ext        ;BA 11 22
  371.  
  372.     ora b    #0x10        ;CA 10
  373.     ora b    *dir        ;DA 33
  374.     ora b    ,x        ;EA 00
  375.     ora b    offset,x    ;EA 44
  376.     ora b    ext        ;FA 11 22
  377.  
  378.     psha            ;36
  379.     pshb            ;37
  380.     pshx            ;3C
  381.  
  382.     psh a            ;36
  383.     psh b            ;37
  384.     psh x            ;3C
  385.  
  386.     pula            ;32
  387.     pulb            ;33
  388.     pulx            ;38
  389.  
  390.     pul a            ;32
  391.     pul b            ;33
  392.     pul x            ;38
  393.  
  394.     rola            ;49
  395.     rolb            ;59
  396.  
  397.     rol a            ;49
  398.     rol b            ;59
  399.     rol    ,x        ;69 00
  400.     rol    offset,x    ;69 44
  401.     rol    ext        ;79 11 22
  402.  
  403.     rora            ;46
  404.     rorb            ;56
  405.  
  406.     ror a            ;46
  407.     ror b            ;56
  408.     ror    ,x        ;66 00
  409.     ror    offset,x    ;66 44
  410.     ror    ext        ;76 11 22
  411.  
  412.     rti            ;3B
  413.  
  414.     rts            ;39
  415.  
  416.     sba            ;10
  417.  
  418.     sbca    #0x10        ;82 10
  419.     sbca    *dir        ;92 33
  420.     sbca    ,x        ;A2 00
  421.     sbca    offset,x    ;A2 44
  422.     sbca    ext        ;B2 11 22
  423.  
  424.     sbcb    #0x10        ;C2 10
  425.     sbcb    *dir        ;D2 33
  426.     sbcb    ,x        ;E2 00
  427.     sbcb    offset,x    ;E2 44
  428.     sbcb    ext        ;F2 11 22
  429.  
  430.     sbc a    #0x10        ;82 10
  431.     sbc a    *dir        ;92 33
  432.     sbc a    ,x        ;A2 00
  433.     sbc a    offset,x    ;A2 44
  434.     sbc a    ext        ;B2 11 22
  435.  
  436.     sbc b    #0x10        ;C2 10
  437.     sbc b    *dir        ;D2 33
  438.     sbc b    ,x        ;E2 00
  439.     sbc b    offset,x    ;E2 44
  440.     sbc b    ext        ;F2 11 22
  441.  
  442.     sec            ;0D
  443.  
  444.     sei            ;0F
  445.  
  446.     sev            ;0B
  447.  
  448.     staa    *dir        ;97 33
  449.     staa    ,x        ;A7 00
  450.     staa    offset,x    ;A7 44
  451.     staa    ext        ;B7 11 22
  452.  
  453.     stab    *dir        ;D7 33
  454.     stab    ,x        ;E7 00
  455.     stab    offset,x    ;E7 44
  456.     stab    ext        ;F7 11 22
  457.  
  458.     sta a    *dir        ;97 33
  459.     sta a    ,x        ;A7 00
  460.     sta a    offset,x    ;A7 44
  461.     sta a    ext        ;B7 11 22
  462.  
  463.     sta b    *dir        ;D7 33
  464.     sta b    ,x        ;E7 00
  465.     sta b    offset,x    ;E7 44
  466.     sta b    ext        ;F7 11 22
  467.  
  468.     std    *dir        ;DD 33
  469.     std    ,x        ;ED 00
  470.     std    offset,x    ;ED 44
  471.     std    ext        ;FD 11 22
  472.  
  473.     sts    *dir        ;9F 33
  474.     sts    ,x        ;AF 00
  475.     sts    offset,x    ;AF 44
  476.     sts    ext        ;BF 11 22
  477.  
  478.     stx    *dir        ;DF 33
  479.     stx    ,x        ;EF 00
  480.     stx    offset,x    ;EF 44
  481.     stx    ext        ;FF 11 22
  482.  
  483.     suba    #0x10        ;80 10
  484.     suba    *dir        ;90 33
  485.     suba    ,x        ;A0 00
  486.     suba    offset,x    ;A0 44
  487.     suba    ext        ;B0 11 22
  488.  
  489.     subb    #0x10        ;C0 10
  490.     subb    *dir        ;D0 33
  491.     subb    ,x        ;E0 00
  492.     subb    offset,x    ;E0 44
  493.     subb    ext        ;F0 11 22
  494.  
  495.     subd    #0x5566        ;83 55 66
  496.     subd    *dir        ;93 33
  497.     subd    ,x        ;A3 00
  498.     subd    offset,x    ;A3 44
  499.     subd    ext        ;B3 11 22
  500.  
  501.     sub a    #0x10        ;80 10
  502.     sub a    *dir        ;90 33
  503.     sub a    ,x        ;A0 00
  504.     sub a    offset,x    ;A0 44
  505.     sub a    ext        ;B0 11 22
  506.  
  507.     sub b    #0x10        ;C0 10
  508.     sub b    *dir        ;D0 33
  509.     sub b    ,x        ;E0 00
  510.     sub b    offset,x    ;E0 44
  511.     sub b    ext        ;F0 11 22
  512.  
  513.     sub d    #0x5566        ;83 55 66
  514.     sub d    *dir        ;93 33
  515.     sub d    ,x        ;A3 00
  516.     sub d    offset,x    ;A3 44
  517.     sub d    ext        ;B3 11 22
  518.  
  519.     swi            ;3F
  520.  
  521.     tab            ;16
  522.  
  523.     tap            ;06
  524.  
  525.     tba            ;17
  526.  
  527.     tpa            ;07
  528.  
  529.     tsta            ;4D
  530.     tstb            ;5D
  531.  
  532.     tst a            ;4D
  533.     tst b            ;5D
  534.     tst    ,x        ;6D 00
  535.     tst    offset,x    ;6D 44
  536.     tst    ext        ;7D 11 22
  537.  
  538.     tsx            ;30
  539.  
  540.     txs            ;35
  541.  
  542.     wai            ;3E
  543.  
  544.     .page
  545.  
  546.     .hd6303
  547.  
  548.     aim    #0x10,    *dir    ;71 10 33
  549.     aim    #dir,    ,x    ;61 33 00
  550.     aim    #0x10,offset,x    ;61 10 44
  551.  
  552.     eim    #0x10,    *dir    ;75 10 33
  553.     eim    #dir,    ,x    ;65 33 00
  554.     eim    #0x10,offset,x    ;65 10 44
  555.  
  556.     oim    #0x10,    *dir    ;72 10 33
  557.     oim    #dir,    ,x    ;62 33 00
  558.     oim    #0x10,offset,x    ;62 10 44
  559.  
  560.     tim    #0x10,    *dir    ;7B 10 33
  561.     tim    #dir,    ,x    ;6B 33 00
  562.     tim    #0x10,offset,x    ;6B 10 44
  563.  
  564.     xgdx            ;18
  565.  
  566.     slp            ;1A
  567.  
  568.